home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / util / boot / AStart41.lha / AStart / s / alternate-startup
Text File  |  1998-01-20  |  1KB  |  48 lines
  1. ; $ALTSTARTUP: QUALIFIER
  2. ; $QUALIFIER: 3
  3. ; $VER: alternate-startup based on startup-sequence 39.9 (9.8.92)
  4.  
  5. C:SetPatch QUIET
  6. FailAt 21
  7.  
  8. Makedir >NIL: RAM:Clipboards
  9.  
  10. Makedir >NIL: RAM:T
  11. Assign >NIL: T: RAM:T
  12.  
  13. Assign >NIL: CLIPS: RAM:Clipboards
  14.  
  15. C:MountENV
  16.  
  17. Assign >NIL: REXX: S:
  18. Assign >NIL: PRINTERS: DEVS:Printers
  19. Assign >NIL: KEYMAPS: DEVS:Keymaps
  20. Assign >NIL: LOCALE: SYS:Locale
  21. Assign >NIL: LIBS: SYS:Classes ADD
  22. Assign >NIL: HELP: LOCALE:Help DEFER
  23.  
  24. BindDrivers
  25. C:Mount >NIL: DEVS:DOSDrivers/~(#?.info)
  26. IF EXISTS DEVS:Monitors
  27.   IF EXISTS DEVS:Monitors/VGAOnly
  28.     DEVS:Monitors/VGAOnly
  29.   EndIF
  30.    C:List >NIL: DEVS:Monitors/~(#?.info|VGAOnly) TO T:M LFORMAT "DEVS:Monitors/%s"
  31.   Execute T:M
  32.   C:Delete >NIL: T:M
  33. EndIF
  34. C:IPrefs
  35. C:ConClip
  36. C:AddDataTypes REFRESH QUIET
  37.  
  38. Path >NIL: RAM: C: SYS:Utilities SYS:Rexxc SYS:System S: SYS:Prefs SYS:WBStartup SYS:Tools SYS:Tools/Commodities
  39.  
  40. IF EXISTS S:User-Startup
  41.   C:ConvertX S:User-startup T:User-startup "((# (C:Assign|Assign|If|EndIf|Lab|Skip|Else)#?)|(#?SAFETOEXECUTE#?))"
  42.   Execute T:User-startup
  43.   Delete T:User-Startup QUIET
  44. EndIf
  45.  
  46. C:LoadWB
  47. EndCLI >NIL:
  48.